Public Partial Class _Default1
    Inherits System.Web.UI.MasterPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Page.IsPostBack = False Then
            BuildMenu()
        End If
    End Sub

    Private Sub BuildMenu()
        Dim mnuHome As New MenuItem
        mnuHome.Text = "Home"
        mnuHome.NavigateUrl = "~/Default.aspx"

        Dim mnuArticleTest As New MenuItem
        mnuArticleTest.Text = "Articles"
        mnuArticleTest.NavigateUrl = "~/ArticleTest.aspx"

        Dim mnuCodeDecodeTest As New MenuItem
        mnuCodeDecodeTest.Text = "Code Decode"
        mnuCodeDecodeTest.NavigateUrl = "~/CodeDecodeTest.aspx"

        Dim mnuProfileTest As New MenuItem
        mnuProfileTest.Text = "Profiles"
        mnuProfileTest.NavigateUrl = "~/ProfileTest.aspx"

        Dim mnuSecurityTest As New MenuItem
        mnuSecurityTest.Text = "Security"
        mnuSecurityTest.NavigateUrl = "~/SecurityTest.aspx"

        Dim mnuContactUs As New MenuItem
        mnuContactUs.Text = "Contact Us"
        mnuContactUs.NavigateUrl = "~/ContactForm.aspx"

        Dim mnuPhotos As New MenuItem
        mnuPhotos.Text = "Photos"
        mnuPhotos.NavigateUrl = "~/PhotoAlbumTest.aspx"

        Dim mnuEvents As New MenuItem
        mnuEvents.Text = "Events"
        mnuEvents.NavigateUrl = "~/Events.aspx"

        Dim mnuError As New MenuItem
        mnuError.Text = "Error Log"
        mnuError.NavigateUrl = "~/ErrorLog.aspx"

        Dim mnuForums As New MenuItem
        mnuForums.Text = "Forums"
        mnuForums.NavigateUrl = "~/Forums.aspx"

        Dim mnuWebParts As New MenuItem
        mnuWebParts.Text = "Web Parts"
        mnuWebParts.NavigateUrl = "~/WebParts.aspx"

        Dim mnuLookup As New MenuItem
        mnuLookup.Text = "Looups"
        mnuLookup.NavigateUrl = "~/Lookups.aspx"

        mnuMain.Items.Add(mnuHome)
        mnuMain.Items.Add(mnuArticleTest)
        mnuMain.Items.Add(mnuSecurityTest)
        mnuMain.Items.Add(mnuCodeDecodeTest)
        mnuMain.Items.Add(mnuContactUs)
        mnuMain.Items.Add(mnuPhotos)
        mnuMain.Items.Add(mnuEvents)
        mnuMain.Items.Add(mnuError)
        mnuMain.Items.Add(mnuForums)
        mnuMain.Items.Add(mnuWebParts)
        mnuMain.Items.Add(mnuLookup)
    End Sub
End Class